unit u_dm_excipiente;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, u_dm_padrao, FMTBcd, DB, DBClient, Provider, SqlExpr;

type
  Tdm_excipiente = class(Tdm_padrao)
    cdsRegistroCOD_EXCIPIENTE: TIntegerField;
    cdsRegistroLIG_COD_FORMA: TIntegerField;
    cdsRegistroLIG_COD_PRODUTO: TIntegerField;
    cdsRegistroLIG_COD_CLASS_TERAPEUTICA: TIntegerField;
    cdsRegistroPADRAO: TStringField;
    cdsRegistroPERC_DESCTO_VOLUME: TFMTBCDField;
    cdsRegistroDATA_CAD: TDateField;
    cdsRegistroDATA_ALTERACAO: TDateField;
    cdsConsultaCOD_EXCIPIENTE: TIntegerField;
    cdsConsultaLIG_COD_FORMA: TIntegerField;
    cdsConsultaLIG_COD_PRODUTO: TIntegerField;
    cdsConsultaLIG_COD_CLASS_TERAPEUTICA: TIntegerField;
    cdsConsultaPADRAO: TStringField;
    cdsConsultaPERC_DESCTO_VOLUME: TFMTBCDField;
    cdsConsultaDATA_CAD: TDateField;
    cdsConsultaDATA_ALTERACAO: TDateField;
    cdsConsultaPADRAO_DESC: TStringField;
    cdsConsultaFORMA: TStringField;
    cdsConsultaPRODUTO: TStringField;
    cdsConsultaCLASS_TERAPEUTICA: TStringField;
    cdsRegistroSITUACAO: TStringField;
    cdsConsultaSITUACAO: TStringField;
    cdsConsultaSITUACAO_DESC: TStringField;
    spAtualizarPadrao: TSQLStoredProc;

  public
    procedure AtualizarExcipientePadrao(CodExcipiente,CodForma: integer);
  end;

var
  dm_excipiente: Tdm_excipiente;

implementation

uses u_dm_geral;

{$R *.dfm}

procedure Tdm_excipiente.AtualizarExcipientePadrao(CodExcipiente,CodForma: integer);
begin
  spAtualizarPadrao.Params[0].AsInteger := CodExcipiente;
  spAtualizarPadrao.Params[1].AsInteger := CodForma;
  spAtualizarPadrao.ExecProc;
end;

end.
